برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 4:51 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

نمایش Resolutions سیستم

برای این کار API زیر را باز کنید

Private Declare Function GetSystemMetrics Lib "User32" (ByVal index As Long) As Long

دستور زیر را به همراه API در جنرال بنویسید

Dim X As Long, Y As Long

برای دکمه یا هر چیز دیگری دستور زیر را بنویسید....

    X = GetSystemMetrics(0)
    Y = GetSystemMetrics(1)

    MsgBox "Resolutions is : " & CStr(X) & " X " & CStr(Y), vbExclamation, "Monitor"

 

....موفق باشد...

نظر بدین

صفحه قبل 1 صفحه بعد
موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 85
بازدید دیروز : 0
بازدید هفته : 126
بازدید ماه : 162
بازدید کل : 224556
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1